Ham Radio 2000/Ham Radio 2000.iso/ham2000/misc/gc100b/getcall.wcx

Wildcat! WCX | 1994-11-28 | 5KB | 341 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  5166 bytes  01/11/123  08:21:26pm
'! Code Segment Size  :3106 bytes
'! Data Segment Size  :4598 bytes
'! String Segment Size:2060 bytes
'! Compiled with WCC version 4.01

      Declare Sub Sub2879
      Declare Sub Sub2984

      Dim s4463 As String
      Dim s4467 As String*6
      Dim s4473 As String*30
      Dim s4503 As String
      Dim s4507 As String
      Dim s4511 As String
      Dim s4515 As String
      Dim s4519 As String
      Dim s4523 As String
      Dim s4527 As String
      Dim s4531 As String
      Dim s4535 As String
      Dim s4539 As String
      Dim s4543 As String
      Dim s4547 As String
      Dim s4551 As String
      Dim s4555 As String
      Dim s4559 As String
      Dim s4563 As String*7
      Dim s4570 As String
      Dim s4574 As String
      Dim s4578 As String
      Dim s4582 As String
      Dim s4586 As String
      Dim s4590 As String
      Dim s4594 As String

      Dim s65532_ As String

      s4463 = "Copyright 1994, Kirk DeHaan"
      s4467 = "    "
      s4473 = "@BBS@"
      s4547 = "1"
      s4551 = TempPath + "hamcall.txt"
      s4555 = TempPath + "gc.tmp"
      s4559 = TempPath + "gc.err"
      s4563 = "1.0beta"
      s4570 = "gchlp.bbs"
      s4574 = "gccall.bbs"
      s4578 = "gcname.bbs"
      s4582 = "gccity.bbs"
      s4586 = "gczip.bbs"
      s4590 = "gcmode.bbs"
      s4594 = "gcdown.bbs"
      s4535 = UCase(Environ("QRZDRV"))
      If s4535 = "" Then
        Open s4559 For Append As 1
        Print #1, "@DATE@ @TIME@"
        Print #1, "Environment variable QRZDRV not set"
        Print #1, "Set this to the drive on which your QRZ database resides."
        Close 1
        Print "A setup error has occured. Unable to continue. Notify the sysop."
        Print "Press RETURN to continue"
        Input s4527
        End
      End If
  307 s4539 = UCase(Environ("QRZPATH"))
      If s4539 = "" Then
        s4539 = "\"
      Else
  354   s4539 = s4539 + "\"
      End If
  369 s4543 = UCase(Environ("GCLOG"))
      If s4543 = "" Then
        s4543 = "OFF"
      End If
  410 CarrierCheck(-1)
      If s4543 = "ON" Then
        ActivityLog ""
        ActivityLog "getcall.wcx: @FIRST@ @LAST@ entered at @TIME@"
      End If
  450 Do While 1 = 1
        Cls
        If Not DisplayFile("gc.bbs") Then
          Print "@0B@" + String(36, " ") + "GETCALL"
          Print "@03@" + String(32, " ") + "for QRZ Ham CD"
          Print "@0C@" + String(78, "=")
          Print "@0F@" + LeftPad(s4473, 38 - Len(s4473) / 2)
          Print "@0C@" + String(78, "=")
          Print "@03@" + String(32, " ") + "Search Options"
          Print
          Print String(19, " ") + "[@0C@N@03@]  Name" + String(24, " ") + "[@0C@S@03@]  City/State"
          Print String(19, " ") + "[@0C@C@03@]  Callsign" + String(20, " ") + "[@0C@Z@03@]  Zipcode"
          Print String(19, " ") + "[@0C@O@03@]  Output Mode" + String(17, " ") + "[@0C@D@03@]  Download"
          Print String(19, " ") + "[@0A@H@03@]  Help" + String(24, " ") + "[@0A@Q@03@]  Quit"
          Print String(34, " ") + "[@0F@G@03@]  Goodbye"
          Print
          Print String(78 - 20 + Len("@FIRST@") + Len("@LAST@") / 2, " ") + "@07@User - @0F@@FIRST@ @LAST@  @07@Time Left - @0F@@LEFT@"
          Print
          Print String(33, " ") + "@03@Command - @0F@";
        Else
  920     Print String(78 - 20 + Len("@FIRST@") + Len("@LSAT@") / 2, " ") + "@07@                   User - @0F@@FIRST@ @LAST@  @07@Time Left - @0F@@LEFT@"
          Print
          Print String(33, " ") + "@03@Command - @0F@";
        End If
  997   Do While s4523 = ""
          s4523 = UCase(InKey(1213417543))
        Loop
 1035   Print "@0F@" + s4523
        Delay 0.25
        s65532_ = UCase(s4523)
        If s65532_ = "C" Then
          Cls
          DisplayFile(s4574)
 1097     Do While 1 = 1
            Print
            Print "@03@Enter callsign (@0C@ENTER@03@ = Quit) >>@0F@ ";
            Input s4467
            If s4467 = "" Then
              GoTo 1332
            End If
 1153       s4531 = s4535 + ":" + s4539 + "qrz " + s4467 + " > " + s4555
            Print "@0D@Checking@0C@...";
            If s4543 = "ON" Then
              ActivityLog "getcall.wcx: Search for " + s4467
            End If
 1244       Shell s4531, "I:\"
            If s4547 = "1" Then
              Sub2879
            Else
 1285         If s4547 = "2" Then
                Sub2984
              Else
 1314           Sub2879
                Sub2984
              End If
            End If
 1326     Loop
 1332     Del s4555
        Else
 1345     If s65532_ = "N" Then
            Cls
            DisplayFile(s4578)
 1373       Do While 1 = 1
              Print
              Print "@03@Enter first name (@0C@ENTER@03@ to quit) >>@0F@ ";
              Input s4503
              If s4503 = "" Then
                GoTo 1664
              End If
 1425         Print "@03@Enter last name (@0C@ENTER@03@ to quit)  >>@0F@ ";
              Input s4507
              If s4507 = "" Then
                GoTo 1664
              End If
 1463         s4531 = s4535 + ":" + s4539 + "qrz n " + s4507 + " " + s4503 + ">" + s4555
              Print "@0D@Checking@0C@...";
              If s4543 = "ON" Then
                ActivityLog "getcall.wcx: Search for " + s4503 + " " + s4507
              End If
 1576         Shell s4531, "I:\"
              If s4547 = "1" Then
                Sub2879
              Else
 1617           If s4547 = "2" Then
                  Sub2984
                Else
 1646             Sub2879
                  Sub2984
                End If
              End If
 1658       Loop
 1664       Del s4555
          Else
 1677       If s65532_ = "S" Then
              Cls
              DisplayFile(s4582)
 1705         Do While 1 = 1
                Print
                Print "@03@Enter city name (@0C@ENTER@03@ to quit) >>@0F@ ";
                Input s4511
                If s4511 = "" Then
                  GoTo 1996
                End If
 1757           Print "@03@Enter state name (@0C@ENTER@03@ to quit)  >>@0F@ ";
                Input s4515
                If s4515 = "" Then
                  GoTo 1996
                End If
 1795           s4531 = s4535 + ":" + s4539 + "qrz s " + s4515 + " " + s4511 + ">" + s4555
                Print "@0D@Checking@0C@...";
                If s4543 = "ON" Then
                  ActivityLog "getcall.wcx: Search for " + s4511 + " " + s4515
                End If
 1908           Shell s4531, "I:\"
                If s4547 = "1" Then
                  Sub2879
                Else
 1949             If s4547 = "2" Then
                    Sub2984
                  Else
 1978               Sub2879
                    Sub2984
                  End If
                End If
 1990         Loop
 1996         Del s4555
            Else
 2009         If s65532_ = "Z" Then
                Cls
                DisplayFile(s4586)
 2037           Do While 1 = 1
                  Print
                  Print "@03@Enter the 5 digit zipcode (@0C@ENTER@03@ to quit) >>@0F@ ";
                  Input s4519
                  If s4519 = "" Then
                    GoTo 2264
                  End If
 2089             s4531 = s4535 + ":" + s4539 + "qrz z " + s4519 + ">" + s4555
                  Print "@0D@Checking@0C@...";
                  If s4543 = "ON" Then
                    ActivityLog "getcall.wcx: Search for " + s4519
                  End If
 2176             Shell s4531, "I:\"
                  If s4547 = "1" Then
                    Sub2879
                  Else
 2217               If s4547 = "2" Then
                      Sub2984
                    Else
 2246                 Sub2879
                      Sub2984
                    End If
                  End If
 2258           Loop
 2264           Del s4555
              Else
 2277           If s65532_ = "O" Then
                  Cls
                  DisplayFile(s4590)
                  Print "@0B@Select Output Mode"
                  Print
                  Print "  @0F@1@0B@. Screen"
                  Print "  @0F@2@0B@. File"
                  Print "  @0F@3@0B@. Both"
                  Print
                  Print "Mode@0F@? ";
                  Input s4547
                  If s4547 = "" Then
                    s4547 = "1"
                  End If
 2386             If s4547 = "2" Or s4547 = "3" Then
                    Print
                    Print "@0B@Use [@04@D@0B@] to download your file when finished."
                    WaitEnter
                  End If
 2430           Else
 2436             If s65532_ = "D" Then
                    Cls
                    DisplayFile(s4594)
                    Print
                    If SendFile(s4551, 1213417543) Then
                      Print "@03@File@07@ " + s4551 + " @03@sent OK"
                      Del s4551
                    Else
 2519                 Print "@03@Send failed@8C@!"
                      WaitEnter
                    End If
 2531             Else
 2537               If s65532_ = "Q" Then
                      Cls
                      GoTo 2734
                    Else
 2569                 If s65532_ = "H" Then
                        Cls
                        DisplayHelp s4570
                      Else
 2602                   If s65532_ = "G" Then
                          Cls
                          If s4543 = "ON" Then
                            ActivityLog "getcall.wcx: @FIRST@ @LAST@ said goodbye at @TIME@"
                          End If
 2647                     Goodbye 1213417543
                        Else
 2661                     If s65532_ = "V" Then
                            Cls
                            Print "@0F@GETCALL v" + s4563
                            WaitEnter
                          Else
 2707                       Beep
                            Print Chr(8)
                          End If
                        End If
                      End If
                    End If
                  End If
                End If
              End If
            End If
          End If
        End If
 2719   s4523 = ""
      Loop
 2734 If s4543 = "ON" Then
        ActivityLog "getcall.wcx: @FIRST@ @LAST@ returning to BBS at @TIME@"
      End If
 2759 If Exists(s4551) Then
        Del s4551
      End If
 2779

'! Called 8 times
      Sub Sub2879
        Open s4555 For Input As 1
        Print String(11, Chr(8))
        Input #1, s4527
        Input #1, s4527
 2935   Do While Not EOF(1)
          Input #1, s4527
          Print "@0B@" + s4527
        Loop
 2976   Close 1
      End Sub

'! Called 8 times
      Sub Sub2984
        If Exists(s4555) Then
          Open s4555 For Input As 1
          Open s4551 For Append As 2
          Input #1, s4527
          Input #1, s4527
 3058     Do While Not EOF(1)
            Input #1, s4527
            Print #2, s4527
          Loop
 3093     Close 1
          Close 2
        End If
 3103
      End Sub